home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacOS 8 Resources / Developer Tools / Mac OS 8 Interfaces & Libraries / Interfaces / AIncludes / ASDebugging.a < prev    next >
Encoding:
Text File  |  1996-05-01  |  7.1 KB  |  275 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        ASDebugging.a
  3. ;
  4. ;    Contains:    AppleScript Debugging Interfaces.
  5. ;
  6. ;    Version:    Technology:    AppleScript 1.1
  7. ;                Release:    Universal Interfaces 3.0d3 on Copland DR1
  8. ;
  9. ;    Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10. ;
  11. ;    Bugs?:        If you find a problem with this file, send the file and version
  12. ;                information (from above) and the problem description to:
  13. ;
  14. ;                    Internet:    apple.bugs@applelink.apple.com
  15. ;                    AppleLink:    APPLE.BUGS
  16. ;
  17. ;
  18.     IF &TYPE('__ASDEBUGGING__') = 'UNDEFINED' THEN
  19. __ASDEBUGGING__ SET 1
  20.  
  21.     IF &TYPE('__APPLEEVENTS__') = 'UNDEFINED' THEN
  22.     include 'AppleEvents.a'
  23.     ENDIF
  24.     IF &TYPE('__APPLESCRIPT__') = 'UNDEFINED' THEN
  25.     include 'AppleScript.a'
  26.     ENDIF
  27.     IF FOR_SYSTEM7_ONLY THEN
  28. ;
  29. ;*************************************************************************
  30. ;    Mode Flags
  31. ;*************************************************************************
  32. ;
  33. ;
  34. ;     This mode flag can be passed to OSASetProperty or OSASetHandler
  35. ;    and will prevent properties or handlers from being defined in a context
  36. ;    that doesn't already have bindings for them. An error is returned if
  37. ;    a current binding doesn't already exist. 
  38. ;
  39.  
  40. kOSAModeDontDefine                EQU        $0001
  41. ;
  42. ;*************************************************************************
  43. ;    Component Selectors
  44. ;*************************************************************************
  45. ;
  46.  
  47. kASSelectSetPropertyObsolete    EQU        $1101
  48. kASSelectGetPropertyObsolete    EQU        $1101
  49. kASSelectSetHandlerObsolete        EQU        $1103
  50. kASSelectGetHandlerObsolete        EQU        $1104
  51. kASSelectGetAppTerminologyObsolete EQU    $1105
  52. kASSelectSetProperty            EQU        $1106
  53. kASSelectGetProperty            EQU        $1107
  54. kASSelectSetHandler                EQU        $1108
  55. kASSelectGetHandler                EQU        $1109
  56. kASSelectGetAppTerminology        EQU        $110A
  57. kASSelectGetSysTerminology        EQU        $110B
  58. kASSelectGetPropertyNames        EQU        $110C
  59. kASSelectGetHandlerNames        EQU        $110D
  60. ;
  61. ;*************************************************************************
  62. ;    Context Accessors
  63. ;*************************************************************************
  64. ;
  65. ;
  66. ; pascal OSAError OSASetProperty(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, const AEDesc *variableName, OSAID scriptValueID)
  67. ;
  68.     IF ¬ GENERATINGCFM THEN
  69.         Macro
  70.         _OSASetProperty
  71.             move.l              #$00101106,-(sp)
  72.             moveq               #0,D0
  73.             dc.w                $A82A
  74.         EndM
  75.     ELSE
  76.         IMPORT_CFM_FUNCTION OSASetProperty
  77.     ENDIF
  78.  
  79. ;
  80. ; pascal OSAError OSAGetProperty(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, const AEDesc *variableName, OSAID *resultingScriptValueID)
  81. ;
  82.     IF ¬ GENERATINGCFM THEN
  83.         Macro
  84.         _OSAGetProperty
  85.             move.l              #$00101107,-(sp)
  86.             moveq               #0,D0
  87.             dc.w                $A82A
  88.         EndM
  89.     ELSE
  90.         IMPORT_CFM_FUNCTION OSAGetProperty
  91.     ENDIF
  92.  
  93. ;
  94. ; pascal OSAError OSAGetPropertyNames(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, AEDescList *resultingPropertyNames)
  95. ;
  96.     IF ¬ GENERATINGCFM THEN
  97.         Macro
  98.         _OSAGetPropertyNames
  99.             move.l              #$000C110C,-(sp)
  100.             moveq               #0,D0
  101.             dc.w                $A82A
  102.         EndM
  103.     ELSE
  104.         IMPORT_CFM_FUNCTION OSAGetPropertyNames
  105.     ENDIF
  106.  
  107. ;
  108. ; pascal OSAError OSASetHandler(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, const AEDesc *handlerName, OSAID compiledScriptID)
  109. ;
  110.     IF ¬ GENERATINGCFM THEN
  111.         Macro
  112.         _OSASetHandler
  113.             move.l              #$00101108,-(sp)
  114.             moveq               #0,D0
  115.             dc.w                $A82A
  116.         EndM
  117.     ELSE
  118.         IMPORT_CFM_FUNCTION OSASetHandler
  119.     ENDIF
  120.  
  121. ;
  122. ; pascal OSAError OSAGetHandler(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, const AEDesc *handlerName, OSAID *resultingCompiledScriptID)
  123. ;
  124.     IF ¬ GENERATINGCFM THEN
  125.         Macro
  126.         _OSAGetHandler
  127.             move.l              #$00101109,-(sp)
  128.             moveq               #0,D0
  129.             dc.w                $A82A
  130.         EndM
  131.     ELSE
  132.         IMPORT_CFM_FUNCTION OSAGetHandler
  133.     ENDIF
  134.  
  135. ;
  136. ; pascal OSAError OSAGetHandlerNames(ComponentInstance scriptingComponent, long modeFlags, OSAID contextID, AEDescList *resultingHandlerNames)
  137. ;
  138.     IF ¬ GENERATINGCFM THEN
  139.         Macro
  140.         _OSAGetHandlerNames
  141.             move.l              #$000C110D,-(sp)
  142.             moveq               #0,D0
  143.             dc.w                $A82A
  144.         EndM
  145.     ELSE
  146.         IMPORT_CFM_FUNCTION OSAGetHandlerNames
  147.     ENDIF
  148.  
  149. ;
  150. ; pascal OSAError OSAGetAppTerminology(ComponentInstance scriptingComponent, long modeFlags, FSSpec *fileSpec, short terminologyID, Boolean *didLaunch, AEDesc *terminologyList)
  151. ;
  152.     IF ¬ GENERATINGCFM THEN
  153.         Macro
  154.         _OSAGetAppTerminology
  155.             move.l              #$0012110A,-(sp)
  156.             moveq               #0,D0
  157.             dc.w                $A82A
  158.         EndM
  159.     ELSE
  160.         IMPORT_CFM_FUNCTION OSAGetAppTerminology
  161.     ENDIF
  162.  
  163. ;
  164. ; Errors:
  165. ;       errOSASystemError        operation failed
  166. ;
  167. ;
  168. ; pascal OSAError OSAGetSysTerminology(ComponentInstance scriptingComponent, long modeFlags, short terminologyID, AEDesc *terminologyList)
  169. ;
  170.     IF ¬ GENERATINGCFM THEN
  171.         Macro
  172.         _OSAGetSysTerminology
  173.             move.l              #$000A110B,-(sp)
  174.             moveq               #0,D0
  175.             dc.w                $A82A
  176.         EndM
  177.     ELSE
  178.         IMPORT_CFM_FUNCTION OSAGetSysTerminology
  179.     ENDIF
  180.  
  181. ;
  182. ; Errors:
  183. ;       errOSASystemError        operation failed
  184. ;
  185. ;
  186. ; Notes on terminology ID
  187. ;
  188. ;    A terminology ID is derived from script code and language code
  189. ;    as follows;
  190. ;
  191. ;        terminologyID = ((scriptCode & 0x7F) << 8) | (langCode & 0xFF)
  192. ;
  193. ;
  194. ;*************************************************************************
  195. ;    Obsolete versions provided for backward compatibility:
  196. ;
  197. ;
  198. ; pascal OSAError ASSetProperty(ComponentInstance scriptingComponent, OSAID contextID, const AEDesc *variableName, OSAID scriptValueID)
  199. ;
  200.     IF ¬ GENERATINGCFM THEN
  201.         Macro
  202.         _ASSetProperty
  203.             move.l              #$000C1101,-(sp)
  204.             moveq               #0,D0
  205.             dc.w                $A82A
  206.         EndM
  207.     ELSE
  208.         IMPORT_CFM_FUNCTION ASSetProperty
  209.     ENDIF
  210.  
  211. ;
  212. ; pascal OSAError ASGetProperty(ComponentInstance scriptingComponent, OSAID contextID, const AEDesc *variableName, OSAID *resultingScriptValueID)
  213. ;
  214.     IF ¬ GENERATINGCFM THEN
  215.         Macro
  216.         _ASGetProperty
  217.             move.l              #$000C1102,-(sp)
  218.             moveq               #0,D0
  219.             dc.w                $A82A
  220.         EndM
  221.     ELSE
  222.         IMPORT_CFM_FUNCTION ASGetProperty
  223.     ENDIF
  224.  
  225. ;
  226. ; pascal OSAError ASSetHandler(ComponentInstance scriptingComponent, OSAID contextID, const AEDesc *handlerName, OSAID compiledScriptID)
  227. ;
  228.     IF ¬ GENERATINGCFM THEN
  229.         Macro
  230.         _ASSetHandler
  231.             move.l              #$000C1103,-(sp)
  232.             moveq               #0,D0
  233.             dc.w                $A82A
  234.         EndM
  235.     ELSE
  236.         IMPORT_CFM_FUNCTION ASSetHandler
  237.     ENDIF
  238.  
  239. ;
  240. ; pascal OSAError ASGetHandler(ComponentInstance scriptingComponent, OSAID contextID, const AEDesc *handlerName, OSAID *resultingCompiledScriptID)
  241. ;
  242.     IF ¬ GENERATINGCFM THEN
  243.         Macro
  244.         _ASGetHandler
  245.             move.l              #$000C1104,-(sp)
  246.             moveq               #0,D0
  247.             dc.w                $A82A
  248.         EndM
  249.     ELSE
  250.         IMPORT_CFM_FUNCTION ASGetHandler
  251.     ENDIF
  252.  
  253. ;
  254. ; pascal OSAError ASGetAppTerminology(ComponentInstance scriptingComponent, FSSpec *fileSpec, short terminologID, Boolean *didLaunch, AEDesc *terminologyList)
  255. ;
  256.     IF ¬ GENERATINGCFM THEN
  257.         Macro
  258.         _ASGetAppTerminology
  259.             move.l              #$000E1105,-(sp)
  260.             moveq               #0,D0
  261.             dc.w                $A82A
  262.         EndM
  263.     ELSE
  264.         IMPORT_CFM_FUNCTION ASGetAppTerminology
  265.     ENDIF
  266.  
  267. ;
  268. ; Errors:
  269. ;        errOSASystemError        operation failed
  270. ;
  271. ; ************************************************************************
  272.     ENDIF
  273.     ENDIF ; __ASDEBUGGING__ 
  274.  
  275.